home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / misc / cedbar / wrap.g < prev   
Text File  |  1999-05-17  |  2KB  |  69 lines
  1. G4C
  2.  
  3. WINBIG 223 27 398 48 'Re-Wrap selected text:'
  4. WinType 11110001
  5. resinfo 8 640 256
  6.  
  7. BOX 0 0 0 0 out button
  8.  
  9. xOnLoad
  10.    GuiOpen Wrap.g
  11.    setgadvalues wrap.g
  12.    
  13. xOnreload
  14.    Guiopen Wrap.g
  15.    just = ''
  16.  
  17. ; ====================================================
  18. ;       get the line length
  19. ; ====================================================
  20.  
  21. CTEXT 14 4 "Set new line length" #screen 8 2 0 0001
  22.  
  23. XHSLIDER 13 17 351 13 "" chars 20 120 60 "%ld"
  24. gadid 1
  25. update wrap.g 2 $chars
  26.  
  27. ; --- > for bigger lines enter it manually here.
  28.  
  29. XTEXTIN 176 2 67 13 "" chars 60 10
  30. gadid 2
  31. if $chars > 120
  32.    setgad wrap.g 1 OFF
  33. else
  34.    setgad wrap.g 1 ON
  35.    update wrap.g 1 $chars
  36. endif
  37.  
  38. ; ====================================================
  39. ;       get the starting characters to ignore
  40. ; ====================================================
  41.  
  42. XTEXTIN 144 31 85 14 "Starting chars:" hdchars "" 50
  43.  
  44. ; ====================================================
  45. ;       justify ?
  46. ; ====================================================
  47.  
  48. XCYCLER 248 2 116 14 "" just
  49. CSTR Normal     ''
  50. CSTR Justify    JUST
  51. CSTR Un-Justify UNJUST
  52. CSTR Center     CENTER
  53. CSTR Reset      RESET
  54.  
  55. ; ====================================================
  56. ;       do your stuff..
  57. ; ====================================================
  58.  
  59. XBUTTON 279 31 85 14 "Apply"
  60.    SendRexx $cedbar.gc/cedport cut
  61.    lvuse CedClip.g 1
  62.    lvchange 'CLIPS:$cedbar.gc/cedClip'
  63.    call LVFormat wrap '$chars' $just $hdchars
  64.    lvsave 'CLIPS:$cedbar.gc/cedClip'
  65.    SendRexx $cedbar.gc/cedport paste
  66.  
  67.  
  68.  
  69.